home *** CD-ROM | disk | FTP | other *** search
/ Day Cry / Day Cry CD.bin / oh_towns / ippon / ippon05 / snake.bas next >
BASIC Source File  |  1994-09-20  |  3KB  |  79 lines
  1. 10000 '**********************************************************
  2. 10010 '    é╓é╤âTâôâvâïâvâìâOâëâÇ    by Makken
  3. 10020 '**********************************************************
  4. 10030 DEFINT A-Z
  5. 10040 SCREEN @1 : DEF SPRITE 99,0
  6. 10050 '************ âvâìâOâëâÇÆåé┼ùpéóéΘÆΦÉö
  7. 10060 MYSPEED=1   : 'ô¬é╠ê┌ô«æ¼ôx
  8. 10070 TMAX=32     : 'é╡é┴é█é╠Éö
  9. 10080 DATANUM=512 : 'ì└òWé≡ò█æ╢é╖éΘù╠êµé╠æσé½é│
  10. 10090 '************ özù±é≡ÉΘî╛
  11. 10100 DIM PTN%(255),OLDX(DATANUM-1),OLDY(DATANUM-1),MV(8),MW(8)
  12. 10110 '************ ê┌ô«é╔ùpéóéΘözù±é≡Åëè·ë╗
  13. 10120 FOR I=0 TO 8
  14. 10130   READ MV(I),MW(I)
  15. 10140 NEXT
  16. 10150 DATA 0,0,0,-1,1,-1,1,0,1,1,0,1,-1,1,-1,0,-1,-1
  17. 10160 '************ ô¬é╠âpâ^ü[âôé≡ì∞éΘ
  18. 10170 FOR I=0 TO 3
  19. 10180   LINE(0,0)-(15,15),PSET,[0,0,0,1],BF
  20. 10190   CIRCLE(8,8),7-I,[ 24, 0,184],.7!,,,F
  21. 10200   CIRCLE(8,8),5-I,[ 56,32,232],.7!,,,F
  22. 10210   CIRCLE(8,8),3-I,[144,80,248],.7!,,,F
  23. 10220   GET@A(0,0)-(15,15),PTN%
  24. 10230   DEF SPRITE 0,I*4,PTN%,1
  25. 10240 NEXT
  26. 10250 '************ é╡é┴é█é╠âpâ^ü[âôé≡ì∞éΘ
  27. 10260 FOR I=0 TO 3
  28. 10270   LINE(0,0)-(15,15),PSET,[0,0,0,1],BF
  29. 10280   CIRCLE(8,8),6-I,[ 0,208, 16],.7!,,,F
  30. 10290   CIRCLE(8,8),4-I,[24,224,  0],.7!,,,F
  31. 10300   CIRCLE(8,8),3-I,[80,248, 32],.7!,,,F
  32. 10310   GET@A(0,0)-(15,15),PTN%
  33. 10320   DEF SPRITE 0,I*4+16,PTN%,1
  34. 10330 NEXT
  35. 10340 '************ Åëè·É▌ÆΦ
  36. 10350 CLS : MX=120 : MY=112 : PT=0 : PC=0 : OLDP=1
  37. 10360 OFS=DATANUM/TMAX : MODE=0
  38. 10370 FOR I=1 TO 8
  39. 10380   MV(I)=MV(I)*MYSPEED : MW(I)=MW(I)*MYSPEED
  40. 10390 NEXT
  41. 10400 FOR I=0 TO DATANUM-1
  42. 10410   OLDX(I)=MX : OLDY(I)=MY
  43. 10420 NEXT
  44. 10430 DEF SPRITE 1,0,(MX,MY),PT
  45. 10440 FOR I=1 TO TMAX
  46. 10450   DEF SPRITE 1,I,(MX,MY),PT+4
  47. 10460 NEXT
  48. 10470 SPRITE ON:SPRITE SCREEN 1
  49. 10480 FOR I=0 TO TMAX
  50. 10490   SPRITE 0,I,1
  51. 10500 NEXT
  52. 10510 '************ âüâCâôâïü[â`âô
  53. 10520 *MAIN
  54. 10530 '******** ÅIù╣Åêù¥é¿éµé╤Æ╟Å]âéü[âhÉ╪éΦè╖éªÅêù¥
  55. 10540 P=PTRIG(1)
  56. 10550 IF P=4 THEN END
  57. 10560 IF P<>0 THEN WHILE PTRIG(1) : WEND : MODE=1-MODE
  58. 10570 '******** ô¬é╠Åêù¥
  59. 10580 P=PAD(1)
  60. 10590 MX=MX+MV(P) : IF (MX<0 OR MX>240) THEN MX=MX-MV(P)
  61. 10600 MY=MY+MW(P) : IF (MY<0 OR MY>224) THEN MY=MY-MW(P)
  62. 10610 SPRITE 6,0,MX-SPRITE(0,6),MY-SPRITE(0,7)
  63. 10620 PC=PC+1 : IF PC=8 THEN PC=0 : PT=(PT+1) MOD 4
  64. 10630 SPRITE 1,0,PT*4
  65. 10640 '******** é╡é┴é█é╠Åêù¥
  66. 10650 J=OLDP
  67. 10660 FOR I=1 TO TMAX
  68. 10670   J=(J-OFS+DATANUM) MOD DATANUM
  69. 10680   'J=(J-OFS) AND (DATANUM-1)
  70. 10690   SPRITE 6,I,OLDX(J)-SPRITE(I,6),OLDY(J)-SPRITE(I,7)
  71. 10700   SPRITE 1,I,PT*4+16
  72. 10710 NEXT
  73. 10720 '******** î╗ì▌é╠ô¬é╠ì└òWé≡ïLÿ^
  74. 10730 IF P=0 AND MODE=0 THEN GOTO *MAIN
  75. 10740 OLDX(OLDP)=MX : OLDY(OLDP)=MY
  76. 10750 OLDP=(OLDP+1) MOD DATANUM
  77. 10760 'OLDP=(OLDP+1) AND (DATANUM-1)
  78. 10770 GOTO *MAIN
  79.